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INTRODUCTION 

The Intel® MCS-48 family of microcomputers marked 
the first time an eight bit computer with program 
storage, data storage, and I/O facilities was available on 
a single LSI chip. The performance of the initial 
processors in the family (the 8748 and the 8048) has 
been shown to meet or exceed the requirements of most 
current applications of microcomputers. A new member 
of the family, however, has been recently introduced 
which promises to allow the use of the single chip 
microcomputer in many application areas which have 
previously required a multichip solution. The In- 
tel@8049 virtually doubles processing power available 
to the systems designer. Program storage has been in- 
creased from 1K bytes to 2K bytes, data storage has 
been increased from 64 bytes to 128 bytes, and process- 
ing speed has been increased by over 80%. (The 2.5 
microsecond instruction cycle of the first members of 
the family has been reduced to 1.36 microseconds.) 

It is obvious that this increase in performance is going 
to result in far more ambitious programs being written 
for execution in a single chip microcomputer. This ar- 
ticle will show how several program modules can be 
designed using the 8049. These modules were chosen 
to illustrate the capability of the 8049 in frequently en- 
countered design situations. The modules included are 
full duplex serial 110, binary multiply and divide routines, 
binary to BCD conversions, and BCD to binary conver- 
sion. It should be noted that since the 8049 is totally 
software compatible with the 8748 and 8048 these 
routines will also be useful directly on these proc- 
essors. In addition the algorithms for these programs 
are expressed in a program design language format 
which should allow them to be easily understood and 
extended to suit individual applications with minimal 
problems. 



however, is more economic than technical; these same 
peripheral chips which are such a bargain when coupled 
to a microprocessor such as the MCS-85 or 86, have a 
significant cost impact on a single chip microcomputer 
based system. The high speed of the 8049, however, 
makes it feasible to implement a serial link under soft- 
ware control with no hardware requirements beyond two 
of the I/O pins already resident on the microcomputer. 

There are many techniques for implementing serial I/O 
under software control. The application note "Applica- 
tion Techniques for the MCS-48 Family" describes 
several alternatives suitable for half duplex operation. 
Full duplex operation is more difficult, however, since it 
requires the receive and transmit processes to operate 
concurrently. This difficulty is made more severe if it is 
necessary for some other process to also operate while 
serial communication is occurring. Scanning a keyboard 
and display, for example, is a common operation of 
single chip microcomputer based system which might 
have to occur concurrently with the serial receive/trans- 
mit process. The next section will describe an algorithm 
which implements full duplex serial communication to 
occur concurrently with other tasks. The design goal 
was to allow 2400 baud, full duplex, serial communica- 
tion while utilizing no more than 50% of the available 
processing power of the high speed 8049 microcom- 
puter. 

The format used for most asynchronous communication 
is shown in Figure 1. It consists of eight databits with a 
leading 'START' bit and one or more trailing 'STOP' bits. 
The START bit is used to establish synchronization be- 
tween the receiver and transmitter. The STOP bits en- 
sure that the receiver will be ready to synchronize itself 
when the next start bit occurs. Two stop bits are nor- 
mally used for 110 baud communication and one stop 
bit for higher rates. 



FULL DUPLEX SERIAL 
COMMUNICATIONS 

Serial communications have always been an important 
facet in the application of microprocessors. Although 
this has been partially due to the necessity of con- 
necting a terminal to the microprocessor based system 
for program generation and debug, the main impetus 
has been the simple fact that a large share of micro- 
processors find their way into end products (such as in- 
telligent terminals) which themselves depend on serial 
communication. When it is necessary to add a serial link 
to a microprocessor such as the Intel® MCS-85 or 86 the 
solution is easy; the Intel® 8251A USART or 8273 SDLC 
chip can easily be added to provide the necessary pro- 
tocol. When it is necessary to do the same thing to a 
single chip microcomputer, however, the situation 
becomes more difficult. 

Some microcomputers, such as the Intel 8048 and 8049 
have a complete bus interface built into them which 
allows the simple connection of a USART to the proc- 
essor chip. Most other single chip microcomputers, 
although lacking such a bus, can be connected to a 
USART with various artificial hardware and software 
constructs. The difficulty with using these chips, 
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Figure 1. 



The algorithm used for reception of the serial data is 
shown in Figure 2. It uses the on board timer of the 8049 
to establish a sampling period of four times the desired 
baud rates. For 2400 baud operation a crystal frequency 
of 9.216 MHz was chosen afterthe following calculation: 

f = 480N(2400)(4) 
where 480 is the factor by which the crystal fre- 
quency is divided within the processor 
to get the basic interrupt rate 
2400 is the desired baud rate 

4 is the required number of samples per 
bit time 

N is the value loaded into the MCS-48 
timer when it overflows 



The value N was chosen to be two (resulting in f = 9.216 
MHz) so that the operating frequency of the 8049 could 
be as high as possible without exceeding the maximum 
frequency specification of the 8049 (11 MHz). 



; START OF RECEIVE ROUTINE 



;1 IF RECEIVE FLAG=8 TEN 

;2 I F SERIAL INPUT=SPACE THEN 

;3 RECEIVE FLAG: =1 

;3 BYTE FINISHED FLAG: =8 

;2 EWIF 

i 1 ELSE SINGE RECEIVE FLAG=1 1T€N 

; 2 IF SYNC FLAG=8 THEN 

;3 I F SERIAL INPUT=SPflCE THEN 

;4 SVNC FLfC:=l 

;4 DATA : =$8H 

;4 SHHPLE CNTR:=4 

;3 ELSE SINCE SERIAL INPUT=HRRK THEN 

>4 RECEIVE FLAG; =8 

;3 ENDIF 

;2 ELK SINCE SVNC FLAG=1 M N 

; 3 SHHPLE COUNTER :=SAHPLE COUNTER-1 

; 3 IF SHHPLE COUNTERS THEN 

;4 SHHPLE COUNTER: =4 

;4 I F BYTE FINISHED FEW THEN 

;5 CARRY. =SERIAl INPUT 

;5 SHIFT WITH RIGHT WITH CflRRV 

1 5 IF CARRY=1 THEN 

; 6 OKDflTR =0flTft 

16 I F DATA READY FLAG=8 THEN 
; 7 BYTE FINISHED FLflG=i 
,6 ELR 

H BYTE FINISHED FLAG:-1 

>7 OVERRUN FLAG: =1 

>6 M I F 

,5 ENDIF 

;4 ELSE SINCE BYTE FINIRU) FLAG=i THEN 

;5 I F SERIAL INPUT=HflRX THEN 

i6 DATA READY FLAG: =1 

;5 ELSE SINCE SERIAL 1NPUT=SPACE THEN 

;6 ERFCR FLAG:=1 

;5 M I F 

;5 RECEIVE FLAG: =8 

;5 SVNC FLAG. =8 

;4 M I F 

;3 EHDIF 

,2 ENDIF 

:■ 1 ENDIF 



Figure 2 



The timer interrupt service routine always loads the 
timer with a constant value. In effect the timer is used to 
generate an independent time base of four times the re- 
quired baud rate. This time base is free running and is 
never modified by either the receive or transmit pro- 
grams, thus allowing both of them to use the same 
timer. Routines which do other time dependent tasks 
(such as scanning keyboards) can also be called periodi- 
cally at some fixed multiple of this basic time unit. 

The algorithm shown in Figure 2 uses this basic clock 
plus a handful of flags to process the serial input data. 



Once the meaning of these flags are understood the 
operation of the algorithm should be clear. The Receive 
Flag is set whenever the program is in the process of 
receiving a character. The Synch Flag is set when the 
center of the start bit has been checked and found to be 
a SPACE (if a MARK is detected at this point the receiver 
process has been triggered by a noise pulse so the pro- 
gram clears the Receive Flag and returns to the idle 
state). When the program detects synchronization it 
loads the variable DATA with 80H and starts sampling 
the serial line every four counts. As the data is received 
it is right shifted into variable DATA; after eight bits 
have been received the initial one set into DATA will 
result in a carry out and the program knows that it has 
received all eight bits. At this point it will transfer all 
eight bits to the variable OKDATA and set the Byte 
Finished Flag so that on the next sample it will test for a 
valid stop bit instead of shifting in data. If this test is 
successful the Data Ready Flag will be set to indicate 
that the data is available to the main process. If the test 
is unsuccessful the Error Flag will be set. 

The transmit algorithm is shown in Figure 3. It is exe- 
cuted immediately following the receive process. It is a 
simple program which divides the free running clock 
down and transmits a bit every fourth clock. The variable 
TICK COUNTER is used to do the division. The Transmit- 
ting Flag indicates when a character transmission is in 
progress and is also used to determine when the START 
bit should be sent. The TICK COUNTER is used to deter- 
mine when to send the next bit (TICK COUNTER MOD- 
ULO 4 = 0) and also when the STOP bits should be sent 
(TICK COUNTER = 9 4). After the transmit routine com- 
pletes any other timer based routines, such as a key- 
boardldisplay scanner or a real time clock, can be 
executed. 



;STMT OF TRANSMIT ROUTINE 



1 

1 TICK COUNTER :=TICK COUNTER+1 

1 IF TICK COUNTER HOD 4=8 THEN 

2 I F TRANSMITTING FLAG=1 THEN 

3 IF TICK C0UNTER=88 1010 88 B I W THEN 

4 TRANSMITTING FLAG:=8 

3 ELSE I F TICK COUNTERS 1881 88 BINARY THEN 

4 SEND END MARK 

4 TRANSMITTING FLAG:=8 

3 ELSE SINGE TICK C0UNTEROTHE ABOVE COUNT THEN 

4 SEND NEXT BIT 
3 ENDIF 

2 ELK SINCE TRANSMITTING FEW M N 

3 IF TRANSMIT REQUEST FLAG=1 THEN 

4 XMTBYT:=NXTBVT 

4 TRANSMIT REQUEST FLAG: =8 

4 TRANSMITTING FLRG:=1 

4 TICK COUNTER: =8 

i4 SEND SYNC BIT (SPACE) 

• 3 EFQIF 

■ 2 EFQIF 

;1 EHDIF 

Figure 3 
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Figure 4 shows the complete receive and transmit pro- the 8049. Also included in Fig. 4 is a short routine which 
grams as they are implemented in the instruction set of was used to test the algorithm. 



ISIS-II MCS-48/UPI-41 MACRO ASSEMBLER, V2. 8 



LOC OBJ SE6 SOURCE STATEMENT 

* 

2 

3 ;* THIS PROGRAM TESTS M E FULL WJPLEX COMMUNICATION SOFTWARE * 

* 

4 ;* 

6 ; 

7 $INCLUDE(:F1:URTEST.PDL> 

= 8 ; 

= 9 ; START OF TEST ROUTINE 

= 10; 

= 11; 

= 12; 
= 13 ; 

= 14 .: 

= 15 ; 

= 16 ;1 ERROR COUNT :=@ 

= 1 7 i f REPEAT 

= 18 ;2 PATTERN : =0 

= 19 ;2 INITIALISE TIMER 

= 20 i 2 CLEW FLAGBYTE 

= 2 1 ; 2 FLAG141ARK 

= 22 ; 2 REPEAT 

= 23 ;3 IF TRANSMIT REQUEST FLAG=0 THEN 

= 24 ; 4 NXTBYTE:=PATTERN 

= 25.;4 TRANSMIT REQUEST FLAG=1 

= 26 ;2 END I F 

= 27 =3 I F DATA READY FLAG=1 THEN 

= 28 i 4 PATTERN :=0KDATA 

= 29.; 4 DATA REflDV FLAG: =8 

= 28 ;3 ENDIF 

= 3 1 ; 2 UNTIL ERROR FLAG OR OVERRUN FLAG 

= 32 ;2 INCMKNT ERROR COUNT 

= 33 ;1 UNTIL FOREVER 

= 34 ;E0P 
35 EJECT 

9m 36 ORG 

37 -1 SELECT REGISTER BANK 9 

8886 C5 38 SEL RB8 

39 ,;1 GOTO TEST 

8881 2488 40 JMP TEST 

41 $ INCLUDE(:F1:UART) 

= 42 ; 

= 47 ; 

= 44 ; ASVNCHRONOUS RECEIVE/TRANSMIT ROUTINE 

= 45 =================================== 

= 46; THIS ROUTINE RECEIVES SERIAL CINE USING PIN TB AS RXD 

= 47; AND CONCURRENTLY TRANSMITS USING PIN P27 

= 48 ; NOTE: 

= 49; THIS ROUTINE USES FLAG 1 TO BUFFER THE TRANSMITTED 
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Figure 4 



LOC OBJ SEQ 



SOURCE STATEMENT 



= 58 ;1 DATA LINE. THIS ELIHINATES THE .JITTER THAT 

= 51 1 1 WOULD BE CAUSED BY VARIATIONS IN THE RECEIVE 

= 52 ;1 TIMING. NO OTHER PROGRAM MAY USE FLAG 1 WHILE 

= 53 -1 THE TIMER INTERRUPT IS ENABLED. 

= 54; 

= 55 ,; 

= 56 ; 

= 57 .; 

= 58 .■ 

= 59 ; REGIETER ASSIGNMENTS-BANK1 

= 60 ; ======================= 

= 61; 

= 62 } 

8887 = 63 ATEI1P EQU R7 ; USED TO SAVE ACCUMULATOR CONTENTS DURING INTERRUPT 

9006 = 64 FLGBYT EQU R6 ; CONTAINS VARIOUS FLHGS U KD TO CONTROL 1HE RECEIVE 

= 65 i AND TRANSMIT PROCESS. SEE CONSTANT DEFINITIONS FOR 

=66 ; THE MEANING OF EACH BIT 

0805 = 67 SAMCTR EQU P5 ; SAMPLE COUNTER FOR THE RECIEVE PROCESS 

0004 =68 TCKCTR EQU R4 ; SAMPLE COUNTER FOR THE TRANSMIT PROCESS 

0000 = 69 REG9 EQU R0 i USED AS POINTER REGISTER 
= 70 .; 

= 71; RAM ASSIGNMENTS 

= 72 ; ============== 

= 73 ; 

0020 = 74 MOKDAT EQU 20H RECEIVE RETURNS VALID DATA IN THIS BVTE 

0021 = 75 MDATA EQU 21 H ; RECEIVE ACCUMULATES DATA IN THIS BYTE 

0022 = 76 MXMTBY EQU 22H ; CONTAINS BYTE BEING TRANSMITTED 

0823 = 77 MNXTBY EQJ 23H ; CONTAINS THE NEXT BYTE TO BE TRANSMITTED 

= 73 IEJECT 

= 79; 

= 80 

= 81 ; CONSTANTS 

= 82; ===== 

= 82 i 

= 34 } THE FOLLOWING CONSTANTS ARE USED TO ACCESS THE FLAG BITS CONTAINED 

= 85 ; IK REGISTER FLGBVT 
= 86 ; 

0001 = 37 RCVFLG EQU 61H i SET WHEN START BIT IS FIRST DETECTED 

= 83 ; RESET WBJ RECEIVE PRCh:ESS IS COMPLETE 

0802 = 89 SVNFLG EQU 02H ; SET WHEN START BIT IS VERIFIED 

=98 i RESET WHEN RECEIVE PROCESS IS COMPLETE 

0884 = 91 BYFNFL EQU 04H ; RESET WEN STRRT BIT IS FIRST DETECTED 

= 92 ; SET WHEN THE EIGHT DATA BITS HAM ALL BEEN RECEIVED 

8808 = 93 DRDYFL EQU @3H ; SHOULD BE RESET BY MAIN PROGRAM WHEN DATA IS ACCEPTED 

= 94 ; SET BY RECEIVE PROCESS WHEN STOP B1T<S> ARE MRIFIED 

0818 = 95 ERRFLG EQU 10H ; SHOULD BE RESET BY MAIN PROGRAM WHEN SAMPLED 

= % SET BY RECEIVE PROCESS IF A FRAMING ERROR IS GETECTED 

0828 = 97 TRRPFL EQJ 28H ; TESTED BY MAIN PROGRAM TO DETERMINE IF REfiDV 'III 

= 98 i TRANSMIT A NEW BYTE-SET TO INDICATE 1HAT NXTBYT 

= 99 ; HAS PEEN LOADED 

= 188 i RESET BY TRANSMIT PROCESS WHEN BYTE IS ACCEPTED 

8848 = 181 TRNGFL EQU 48H ; SET WHEN TRANSMISSION OF A BYTE STARTS 

= 182 , RESET WHEN STOP BIT IS TRANSMUTED 

8880 =183 OVRUN EQU 88H ; SET PY RECEIVE PROCESS VWJ OVERUN OCCURRS 

= 184 SHOULD BE RESET BY MAIN PROGRAM WHEN SAMPLED 

Mnemonics © 1979 Intel Corporation Fjgure 4 ( cont j nue d) 
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LOC OBJ 



SEQ SOURCE STATEMENT 



= 105 ■ 

= 186 ; GENERAL CONSTANTS 

= 107 ================= 

= 188 f 

9889 = 189 MARK EQU 88H ; USED TO GENERATED A MARK 

FF7F =110 SPACE EQU NOT 80H ; USED TO GENERATE A SPACE 

9990 = 111 STFBTS EQIJ ; CONTROLS THE WJMBER OF STOP BITS 

= 112 ; a GENERATES ONE STOP BIT 

= 113 ; 1 GENERATES TWO STOP BITS 

= 114 ; 

=115 IEJECT 

= 116 > 

= 117 > START OF RECEIVE/TRANSMIT INTERRUPT SERVICE ROUTINE 

= 119 ; 

0997 = 120 ORG 09Q7H 

= 121 

= 122 A ENTER INTERRUPT MODE 
0807 169A = 123 TISR: JTF UART 

0889 93 = 124 FOR 

900A G5 =125 URRT SEL RBI 

= 126 il SAVE ACCUMULATOR CONTENTS 
0006 FF =127 MOV ATEMP..A 

= 128 =1 RELOAD TIMER 
000C 23FE = 123 MOV fl..#TIHCNT 

000E 62 = 134 MOV LA 

= 131 ; 

= 132 ; OUTPUT TXD BUFFER (Fl> TO TXD I/O LINE CP27) 



= 133 ; ============================= 

= 134 ; 

000F 7615 = 135 JF1 OMflRK 

0911 9A7F = 136 OSPACE: ANL P2,tSPACE 

0913 9417 = 1 37 JMP RCV600 

9015 8880 = 138 OMflRK: ORL P2,IMARK 

= 139 ; 

= 148 ; STRRT CF RECEIVE ROUTINE 

= 141; ======================= 

= 142 .: 

= 143 ;1 IF RECEIVE FLAG=0 TFBJ 

0017 FE =144 RCV000: MOV fl,FLGBVT 

0918 1224 = 145 JB0 RCV919 

= 146; 2 I F SERIAL INPUT=SPflCE THEN 

001A 3664 = 1 47 JTO XRIT 

= 143; 3 RECEIVE FLAG: =1 

881C FE = 149 MOV ft.- FLGBVT 

001D 4301 = 150 ORL A, #RCVFLG 

= 151.; 3 BYTE FINISHED FLAG:=@ 

081F 53FB = 1 52 ANL H, WOT BYFNFL 

= 153; 2 ENDIF 

9021 AE =154 MOV FLGBVLA 

8622 8464 = 155 IMP XMIT 

= 156 ,1 ELSE SINCE RECEIVE FLAG=1 THEN 

= 1 57 ■ 2 I F SVNC FLAG=9 THEN 

0024 3238 = 158 RCV910; JB1 RCV930 

= 159 ..' 3 I F SERIAL INPUT=SPflCE THEN 
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Figure 4 (continued) 



UU OBJ 



SE8 



SOURCE STATEMENT 



0826 2622 


= 168 


JT0 


RCV028 




= 161 ; 4 




SYNC FLRG:=1 


0028 4302 


= 162 


ORL 


R, #SVNFLQ 


002A HE 


= 163 


MOV 


FLGBVLA 




= 164 4 




DflTA:=88H 


802B B821 


= 165 


(10V 


R0, #MOflTR 


8020 B088 


= 166 


MOV 


0R0,#80H 




= 167 ; 4 




SRMPLE (MR: =4 


802F BD84 


= 168 


HOV 


SRMCTR,#4 


0031 0464 


= 169 


JMP 


XMT 




= 170 ;3 


ELSE SINCE SERIAL INPUT-ISARK THB 




= 1 71 i 4 




RECEIVE FLRG:=0 


0833 53FE 


= 172 RCV020: 


ANL 


A,#NOT RCVFLG 




= 173 ;3 


EMDIF 


0035 BE 


- 174 


MOV 


FLGBVT, A 


0636 0464 


= 175 


JMP 


XMIT 




= 176;2 ELSE 


SINCE SvN3 afl6=l THEN 




= 177 ;3 


SAIVPLE COUNTER :=5AMPLE COUNTER-1 


0038 ED64 


= 178 RCV038; 


DJNZ 


! SAMCTR, XNIT 




= 179 ;3 


IF SRMPLE COUNTERS THEN 




= 180 ;4 




SAMPLE COUNTER: =4 


003fl BD84 


= 181 


MOV 


SBMCTR,#4 




= 182 ;4 




I F BYTE FINISHED FLRG=0 THEN 


003C 5259 


= 183 


JB2 


RCV050 


003E 97 


= 184 


OR 


C 




= 1 85 i 5 




CflRRV:=SERIHL INPUT 


003F 2642 


= 186 


JNT0 RCV048 


0041 H7 


= 187 


CPL 


C 


0842 B821 


= 188 RCV840: 


MOV 


RMMDflTA 


8044 F0 


= 189 


MOV 


fl,0R8 




= 190 ; 5 




SHIFT DflTR RIGHT WITH CflRRV 


0045 67 


= 191 


RRC 


A 


0046 R0 


= 192 


MOV 


0R0..R 




= 193 ;5 




I F CRRRV=1 THEN 


8047 E664 


= 194 


JNC 


XMIT 




= 195 i6 




OKDflTfl;=DRTn 


0049 B820 


= 196 


MOV 


R0,#MOKDflT 


004B ft0 


= 197 


MOV 






= 198 ; 6 




I F DATA RERDV FLRG=8 THEN 


004C FE 


= 199 


MOV 


fl,FLGBYT 


8040 7254 


= 200 


JB3 


RCV045 




= 281 ■• 7 




BYTE FINISHED FLRG=1 


084F 4304 


= 282 


ORL 


fl, #BYFNFL 


8051 HE 


= 283 


MOV 


FLGBVT, A 


0052 0464 


= 284 


JMP 


XMIT 




= 205 ;6 




ELSE 




= 286 )7 




BYTE FINISHED FLRG:=1 




= 287 7 




OVERRUN FLAG:=1 




= 208 RCV845: 








= 209 


;MOV 


fi,FLGBYT 


8054 4384 


= 218 


ORL 


fl, (KBVFNFL OR OVRUN) 


0856 RE 


= 211 


MOV 


FLGBVT, A 




= 212 ;6 




EMDIF 




= 213 ;5 




ENDIF 


0057 8464 


= 214 


JMP 


XMIT 
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LtC OBJ S3 SOURCE STATEMENT 

= 215,4 ELSE SINCE BYTE FINISHED FLflG=l ThEN 

= 216 ,5 IF SERIAL INPUT=MARK. ThEN 
8859 265F =217 RCV858: JNT8 RCV868 

= 218; 6 DATA REflDV FLAG : =1 

005B 4388 = 213 ORL A, tDRDVFL 

805D 8461 = 220 JMP RCV078 

= 221 i 5 ELSE SINCE SERIAL INPUT=SPACE ThEN 

= 222 ;6 ERROR FLAG:=1 
885F 4318 = 223 RCV868: CFL A,#ERRFL6 

=224:5 ENDIF 

= 225 >5 RECEIVE FLAG: =8 

= 226 ;5 StfC FLAG: =8 

8861 53FC = 227 RCV878. flNL A, #NOT(SVNFLG OR RCVFLG) 

8863 AE = 228 MOV FLGBVLfl 

= 229 ;4 BsDIF 

= 239 ;3 ENDIF 

= 231 ;2 ENDIF 

= 232 ; 1 ENDIF 
- 233 *EJECT 
= 234 ; 

= 235 ; START OF TRANSMIT ROUTINE 

= 237 ; 
= 238 >1 

= 239 ■TRANSMITTER OUTPUT BIT IS P2-7 

= 240 ;1 TICK COUNTER :=TICK COUNTER+1 

8864 1C = 241 XHIT: INC TCKCTR 

= 242 ;1 IF TICK COUNTER MOD 4=8 ThEN 

0865 2383 = 243 MOV A, #83H 

9867 5C = 244 ANL A, TCKCTR 

0868 9697 = 245 JNZ RETURN 

= 246 .;2 IF TRANSMITTING FLflG=l THEN 

886A FE = 247 MOV A> FLGBVT 

8866 37 = 248 CFL A 

886C D286 = 249 JB6 XMT848 

= 250 IF STPBTS EQ 1 

= 251 ; 3 I F TICK C0UNTER=88 1918 00 BINflRV ThEN 

= 252 MOV A,#28H ; CONDITIONAL ASSEMBLY 

= 253 XFL A, TCKCTK , 

= 254 JNZ XMT818 

= 255 ;4 TRANSMITTING FLAG:=@ 

= 256 NOV A, FLGBYT 

= 257 ANL A, #NOT TRNGFL ; 

= 253 MOV FLGBVT/ A 

= 259 JNP RETURN 

= 268 ENDIF 

= 261 >3 ELSE IF TICK C0UNTER=88 1881 88 BINflRV ThEN 

086E 2324 = 262 XMT818: MOV A,#24H 

8878 DC = 263 >RL A> TCKCTR 

8871 967B = 264 JNZ XMT828 

= 265 -4 SEND END MARK 

8873 A5 = 266 OR Fl ; SET FLAG1 D MARK 

8874 B5 = 267 CFL Fl 

= 268 IF STPBTS EQ 

= 269 ;4 TRANSMITTING FLAG: =8 
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LOC OBJ 



SEQ SOURCE STATEPENT 



9875 FE 


= 270 


MOV 


A, FLGBYT ; CONDITIONAL ASSEMBLE 


0976 53BF 


= 271 


AM 


A,#NOT TRNGFL 


0878 AE 


= 272 


MOV 


aGBVT, A 


9879 0497 


= m 


JMP 


RETURN 




= 274 


ENDIF 




= 275 ; 3 


ELSE SINCE TICK COUNTEROTHE ABOVE COUNT THEN 




= 276 ; 4 




SEND NEXT BIT 


007B 6822 


= 277 XMT828 


: MOV 


R0, trtXMTBY 


807D F0 


= 278 


MOV 


a m 


007E 67 


= 279 


RRC 


A 


007F A8 


= 288 


MOV 


m,b 


0030 A5 


= 281 


CLR 


Fl ; FLHG 1 WILL BE USED* TO BUFFER TXD 


0081 E697 


= 282 


JtC 


RETURN i GO TO RETURN POINT IF TXD=SPACE <8) 


0983 65 


= 283 


CPL 


Fl > ELK COMPLEMENT FLfiG 1 TO A MARK 


9084 0497 


= 284 


JMP 


RETURN 




= 285 ;3 


ENDIF 




= 286 , 2 I 


ELSE 


SINCE TRANSMITTING FLAG=9 THEN 




= 287 ;3 


F 


TRANSMIT REQUEST FLAG=1 THEN 


0886 B297 


= 288 XMT948 


: JB5 


RETLIRN ; FLAG BYTE THERE 




= 289 ;4 




XMTBVT:=NXTBVT 


9088 B823 


= 290 


MOV 


m, IMNXTBY 


888A F0 


= 231 






888B B822 


= 292 


MOV 


R0, #MXMTBY 


098D AO 




MOV 


?R8,A 




= 294 .-4 




TRANSMIT RE8UEST FLAG: =9 


098E FE 


= 295 


MOV 


A, FLGBYT 


988F 53DF 


= 296 


ANL 


A, MOT TRRQFL 




= 237 ;4 




TRANSMITTING FLAG:=1 


0991 4349 


= 298 


DRL 


A, STRNGFL 


0893 AE 


= 299 


MOV 


FLGBYT, A 




= 390 .;4 




TICK COUNTER :=9 


0894 BC90 


= 301 


MOV 


TCKCTR, #9 




= 382 ;4 




SEND SYNC BIT <SFr€E> 


09% R5 


= 383 


CLR 


Fl ; SET FLAG 1 TO CAUSE A SPACE 




= 304 ,3 


ENDIF 




= 385 , 2 


ENDIF 






= 306 ;1 ENDIF 






= 307 RETURN: 






= 393 A RESTORE ACCUMULATOR 


0997 FF 


= 389 


MOV 


A, A TEMP 


8098 93 


= 310 


RETR 





311 fEJECT 








312 








313 ; 


START OF TEST 




314 








315 ; 






0109 


316 


ORG 


0100H 


FFFE 


317 TIMCNT 


EQU 


-2 


081E 


318 MFLGBY 


EQU 


1EH 


801D 


319 MSAMCT 


ESU 


1DH 


001C 


329 MTCKCT 


EQU 


1CH 




321 ; 






8007 


322 ERRCNT 


ERU 


R7 


8886 


323 PATT 


EQU 


R6 




324 > 
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LLC OBJ 


SEQ 


SOURCE STATEMENT 




325 ; 






326 ; 






327 il ERROR 00LM:=8 


enact PTOO 


325 TEST: 


H0V ERRCNL #0 




329 ,1 REPEAT 




338 TLOP' 






331 ;2 


PATTERN :=0 




332 


MOV 1 PflTT, #09 




OOO / c. 


INITIALIZE TIMER 

nil ■ iip^icl. i ii ii» rv 


BlkW tirt 


334 


MOV A, tTIMCNT 




335 


MOV T» fl 


DO 


336 


STRT T 




337 


EN TCNTI 




335 -2 


CLEFB? FLRGBVTE 

wLLI il \ 1 1— . 1 r l ■ ^ 


olkiy Bole 


339 


MOV R0, #MFLGBV 




348 


MOV PRO, #0 

1 1UT inv/ FT V 




341 ;2 


FLAG1=MAPK 


010D A5 




flR F1 


Blot oD 


343 


CPL Fl 




344 ^ 2 


REPEAT 




345 TILOP 






346 ;3 


IF TRANSMIT REQUEST FLflG=0 THEN 


CHOC Pfi-IF 
OlCr DO J.L 


347 


MOV P8, #MFLGBY 


cm 1 1 ro 


348 


MOV fl. 0R0 


(Jlli Di£ii4 


349 


JB5 TREC 




350 -4 


NXTBYTE" -PATTERN 

1 M/ \ 1 l_/ \ 1 1 ■ —1 1 \ \ \ \ 1 U N 


Dili BjtJ 


351 


MOV R1.IMNXTBV 


at AC ZC 
Olio rt 


35? 


MOV fl, PflTT 

i rj v riv rni i 


ollr Ml 


OOO 


MTi/ UR1> fl 




^4 ; 4 

OOt .' *T 




PllO 3-J 


355 


DIS TCNTI i LOCK OUT TIMER INTERRUPT 




356 


SO THAT MUTlJflL EXCLUSION IS MfiINTMNE.0 WHILE 




357 


: "IHE FLAG BVTE IS BEING MODIFIED 


yiiy rW 


358 


MOV fl.- §R0 


011H 4ii0 


359 


ORL fl, ITRPQFL 


011C R0 


368 


MO'™ 1 r<R0, ft 


911D 25 


361 


EN TCNTI 


VlLt IOclcl 


362 


JTF TESTft 




363 


JMP TREC 




364 TESTA 


: CALL UftRT ; CALL UflRT BECAUSE TIMER OVERFLOWED DURING LOCI 




365 :■ 3 


ENDIF 




366 ;3 


1 F DATA REflDV FLAQ=1 THEN 




367 TRST- 




CM OA CO 


368 


MOV fl. I>P0 




363 


CPL A 




379 


JB3 TRECE 




371 i4 


PATTERN; =OKDflTft 


CM !?Q t'OOQ 


372 


V Rl..#HOKDflT 


CM "!>Q CI 
oltn rl 


373 


MOV A,flRl 


CM '5D DC 


374 


MOV PflTT, fl 




375 ;4 


DATA READV FLRG : =4) 


012C 35 


376 


DIS TCNTI ; LOCK CUT TIMER INTERRUPT 




377 


• SO THAT MUTUAL EXCLUSION IS MfilNTIANED WHILE 




378 


THE FLAG BYTE IS BEING MODIFIED 


812D F0 


379 


MOV R,8R9 
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LOC OBJ 



SEO 



9CUFCE STATEMENT 





380 


ANL 


fl.tNOT DRDYR 


Olid HW 


381 


NOV 


9R0, fl 


8121 25 




EN 


TCNTl 


WJ2 1636 


383 


JTF 


IbSIB 




384 


JMP 


TRECE 


fljl "1/* A A rtO 

01^6 140A 


385 TESTB: 


CALL 


UflRT ; CALL UflRT I F 




286 TRECE: 








387 J 


ENDIF 






388 ;2 


UNTIL ERROR FLRG OR OVERRUN FLAG 


813£> F0 


389 


NOV 


A,(?R0 




398 


ANL 


fl, #(0VRUN OR ERRFLG) 


013B C66F 


391 


JZ 


TILOP 




392 2 


INCREMENT ERROR COUNT 


013D IF 


393 


INC 


ERRCNT 




394 ,1 UNTIL FOREVER 


013E 2402 


395 


JMP 


TIC? 




3% ;E0F 








397 


END 





LEER SYMBOLS 




















ATEMP 0007 


BYFNFL 9094 


DRDYFL 


0008 


EFfCNT 


0007 


ERRFLG 0910 


FLG8YT 0096 


MARK 0089 


MDATft 0021 


MFLGBY W1E 


MNXTBY 8623 


MOKDflT 


0029 


MSAMCT 


091D 


HTCKCT 081C 


MXMTBY 8822 


0MARK 0015 


0SPACE 9011 


ovrun md 


PUTT 8096 


RCV090 


0017 


RCV019 


9024 


RCV920 8833 


RCV030 0838 


RCV048 0042 


RCV045 0954 


RCV956 6859 


RCV960 005F 


RCV978 


0061 


RCVFLG 


0001 


REG9 9000 


RETURN 809? 


SAMCTR 8005 


SRHCE FF7F 


SIHBIS 8980 


SYNFLG 0992 


TCKCTR 


8094 


TEST 


0109 


TESTA 9122 


TESTB 0136 


TILOP 910F 


1TRCNT FFFE 


TISR 8907 


TLOP 8102 


TREC 


9124 


TRECE 


0138 


TRNGFl 0048 


TRRQFl 0028 


UflRT 080A 


XMI1 9064 


XMT018 986E 


XMT920 9978 


XMT940 


0986 















ASSEMBLY COMPLETE, NO ERRORS 
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MULTIPLY ALGORITHMS 

Most microcomputer programmers have at one time or 
another implemented a multiply routine as part of a 
larger program. The usual procedure is to find an algo- 
rithm that works and modify it to work on the machine 
being used. There is nothing wrong with this approach. 
If engineers felt that they had to reinvent the wheel 
every time a new design is undertaken, that's probably 
what most of us would be doing — designing wheels. If 
the efficiency of the multiply algorithm, either in terms 



of code size or execution time is important, however, it 
is necessary to be reasonably familiar with the multipli- 
cation process so that appropriate optimizations for the 
machine being used can be made. 

To understand how multiplication operates in the binary 
number system, consider the multiplication of two four 
bit operands A and B. The "ones and zeros" in A and B 
represent the coefficients of two polynomials. The 
operation Ax B can be represented as the following 
multiplication of polynomials: 



A3*2 J 
B3*2 3 



+ 
+ 



A2*2 d 
B2*2 2 



+ 
+ 



A1 *2 
B1*2 1 



+ 
+ 



A0*2 U 
B0*2° 



B1A3*2* 

,4 



+ B2A3*2 5 + B2A2*2 
+ B3A3*2 6 + B3A2*2 5 + B3A1*2 4 



B0A3*2 3 + B0A2*2 2 + B0A1*2 1 



+ B1A2*2 3 

B2A1*2 3 
B3A0*2 3 



+ B1A1'2^ 
B2AO*2 2 



B1A0*2 



B0A0*2° 
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The sum of all these terms represents the product of A 
and B. The simplest multiply algorithm factors the 
above terms as follows: 

A*B= B0*(A)*2°+ B1*(A)*2 1 + B2*(A)*2 2 + B3*(A)*2 3 

Since the coefficients of B (i.e., BO, B1, B2, and B3) can 
only take on the binary values of 1 or 0, the sum of the 
products can be formed by a series of simple adds and 
multiplications by two. The simplest implementation of 
this would be: 

MULTIPLY: 
PRODUCT =0 

IF BO = 1 THEN PRODUCT: = PRODUCT+ A 
IF B1 = 1 THEN PRODUCT: = PRODUCT+ 2* A 
IF B2= 1 THEN PRODUCT: = PRODUCT+4*A 
IF B3= 1 THEN PRODUCT:= PRODUCT+8*A 
END MULTIPLY 

In order to conserve memory, the above straight line 
code is normally converted to the following loop: 

MULTIPLY: 
PRODUCT: = 
COUNT:=4 
REPEAT 

IF B[0]=1 THEN PRODUCT: = PRODUCT+ A ENDIF 
A: = 2*A 
B:= B/2 

COUNT: = COUNT- 1 
UNTIL COUNT: = 
END MULTIPLY 

The repeated multiplication of A by two (which can be 
performed by a simple left shift) forms the terms 2*A, 
4*A, and 8*A. The variable B is divided by two (per- 
formed by a simple right shift) so that the least signifi- 
cant bit can always be used to determine whether the 
addition should be executed during each pass through 
the loop. It is from these shifting and addition opera- 



tions that the "shift and add" algorithm takes its com- 
mon name. 

The "shift and add" algorithm shown above has two 
areas where efficiency will be lost if implemented in the 
manner shown. The first problem is that the addition to 
the partial product is double precision relative to the 
two operands. The other problem, which is also related 
to double precision operations, is that the A operand is 
double precision and that it must be left shifted and 
then the B operand must be right shifted. An examina- 
tion of the "longhand" polynomial multiplication will 
reveal that, although the partial product is indeed dou- 
ble precision, each addition performed is only single 
precision. It would be desirable to be able to shift the 
partial product as it is formed so that only single preci- 
sion additions are performed. This would be especially 
true if the partial product could be shifted into the "B" 
operand since one bit of the partial product is formed 
during each pass through the loop and (happily) one bit 
of the "B" operand is vacated. To do this, however, it is 
necessary to modify the algorithm so that both of the 
shifts that occur are of the same type. 

To see how this can be done one can take the basic 
multiplication equation already presented: 

A*B= B0*(A*2°)+ B1*(A*2 1 )+ B2*(A*2 2 ) + B3*(A*2 3 ) 

and factoring 2 4 from the right side: 

A*B = 2 4 [B0*(A*2 _4 ) + B1*(A*2 -3 ) 
+ B2*(A*2~ 2 )+B3*(A*2~ 1 )] 

This operation has resulted in a term (within the 
brackets) which can be formed by right shifts and adds 
and then multiplied by 2 4 to get the final result. The 
resulting algorithm, expanded to form an eight by eight 
multiplication, is shown in figure 5. Note that although 
the result is a full sixteen bits, the algorithm only per- 
forms eight bit additions and that only a single sixteen 
bit shift operation is involved. This has the effect of 
reducing both the code space and the execution time 
for the routine. 



ISIS- II MCS-43/UPI-41 NftCRO ASSEMBLER, Q2. B 



LOC OBJ SE6 SOURCE STATEMENT 

1 fflflCROFILE 

2 *INCLUDE(:Fi:MPV8. HED) 



= 4 .;* 

= 5 ;* HPY8X8 * 

6 : * * 

* 

7 • * 

_ , ,* ^ 

= 8 ■* 

= 9;* THIS UTILITY PROVIDES RN 8 BY 8 UNSIGNED MULTIPLY * 

= ie ,■ * AT ENTRY: * 

= ii;* A = LQHER EIGHT BITS OF DESTINATION OPERAND * 

= 12 i* XR= DON'T CAPE * 

= 13 j* R1= POINTER TO SOURCE OPERAND (MULTIPLIER) IN INTERNAL HENEQRY * 
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LOC OBJ SEP SOURCE STATEMENT 



14 i* * 
15;* HT EXIT: * 
16 ;* A = LOWER EIGHT BITS OF RESULT * 

17;* XA= UPPER EIGHT BITS OF RESULT * 

18;* C = SET IF OVERFLOW ELSE CLEARED * 

19 ; * 

20 ; ***+******+**+*******+**+***+***+********************************+*+********** 

21 > 
22 

23 $INCLUDE<:F1:MPY8.PDL> 

24 ;1 MPV8X3: 

25 ;i MULT I PL I CfiNDC 1 5-8 ] : =0 

26 ..1 COUNT: =8 

27 ;I REPEAT 

23 ;2 IF MULTIPLICflNM0]=0 THEN BEGIN 
29 ,3 MULTIPLICAND. ^MULTIPLICANDS 

39 ;2 ELSE 

31 ; x MULT I PL I CRMDC 15-81: ^MLILT I PL I CRNDC 15-3 ]+MULT I PL IER 

32 il MULTIPLICAND : ^MULTIPLICAND/? 

22 :-2 END IF 

34; 2 COUNT :=COUNT-i 
= 1 UNTIL COUNTS 
. 1 END 



7c 





7. .; 








2S . EQUATES 






40 






9902 


41 XA 


EQU 


R2 




42 COUNT 


EQU 


R3 


8004 


43 ICNT 


Em 


R4 




44 ; 






8903 


45 DIGPR 


EQtJ 


3 




46 








47 IEJECT 








48 fINCLUDE(:Fl 


;NPV8) 



= 49 ;1 MPV8X3: 

= 59 !1FV3X8: 

= 51 ,1 HULTIPLICfWDC15-8l=8 

9009 BA09 = 52 MOV XR..#90 

= 52 .1 COUNT : =8 

0092 BD88 = 54 MOV COUNT, #8 

- 55 >1 REPEAT 

= 56 MPV3LP: 

= 57 ; 2 IF MULTIPLICAND! 8 ]=8 THEN BEGIN 

8004 129E = 58 JB8 MPV8A 

= 59; 3 MULT I PL I C8^ : =MULT I PL I CflND/2 

9086 2fi = 68 XCH fl.-XA 

8897 97 = 61 CLR C 

8008 67 = 62 RRC A 

8804 2A = 63 XCH ft,XA 

880fi 67 = 64 RFC A 

O00B EB84 = 65 DJNZ COUNT) MPV8LP 



3 = 66 PET 

- 67 ; 2 ELSE 
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LOC OBJ SEft 



SOURCE STATBVlElsrr 



= 68 MPVSfi: 

= 63 a IflJLTIPLICHNDC 15-8 1 : =MULTIPLICHNM 15-83+MULTIPLIER 
908E 2H = 78 XCH ft,Xft 

908F 61 = 7i HDD ft, PR1 

8019 67 =72 RFC H 

8811 2fl = 73 XCH fl,Xft 

9812 67 = 74 RRC H 

M13EB94 = 75 DJNZ COUNT.. MPVSLP 

M015 53 = 76 RET 

- 77; 3 riULTI PLICflND : =HULT I PL ICflND/2 

= 73.; 2 END IF 

= 79; 2 COUNT :=COUNT-l 

= 80 , 1 UNTIL C0UNT=6 

= 81 1 END HPV3X8 
82 END 

USER SVHBOLS 

COM 0002 DIGPR O00< ICNT 8004 MPVSfl 000E MFV8LP 8604 MPV8X8 0000 Xfl 0002 
ASSEMBLY COMPLETE, ND ERRORS 
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DIVIDE ALGORITHMS 

In order to understand binary division a four bit opera- 
tion will again be used as an example. The following 
algorithm will perform a four by four division: 



DIVIDE: 

IF 16*DIVISOR>= DIVIDEND THEN 

SET OVERFLOW ERROR FLAG 
ELSE 

IF 8*DIVISOR>= DIVIDEND THEN 
QUOTIENT^]: =1 

DIVIDEND: = DIVIDEND- 8*DIVISOR 
ELSE 

QUOTIENT[3]: = 
ENDIF 

IF 4*DIVISOR>= DIVIDEND THEN 
QUOTIENT^]: = 1 

DIVIDENDS DIVIDEND- 4*DIVISOR 
ELSE 

QUOTIENT^]: = 
ENDIF 

IF 2*DIVISOR>= DIVIDEND THEN 
QUOTIENT[1]:= 1 

DIVIDEND:^ DIVIDEND- 2*DIVISOR 
ELSE 

QUOTIENT[1]: = 
ENDIF 

IF1'DIVISOR> = DIVIDEND THEN 
QUOTIENT[0]:= 1 

DIVIDEND: = DIVIDEND - 1 'DIVISOR 
ELSE 

QUOTIENT[0]: = 
ENDIF 
ENDIF 
END DIVIDE 



The algorithm is easy to understand. The first test asks 
if the division will fit into the dividend sixteen times. If it 

will, the quotient cannot be expressed in only four bits 
so an ovemow error f | ag is set and tne divide algorithm 
ends. The algorithm then proceeds to determine if eight 
times the divisor fits, four times, etc. After each test it 
either sets or clears the appropriate quotient bit and 
modifies the dividend. To see this algorithm in action, 
consider the division of 15 by 5: 



00001111 
■01010000 



00001111 
00101000 



00001111 
00010100 



00001111 
00001010 

00000101 

00000101 
00000101 

00000000 



(15) 
(16*5) 

Doesn't fit — no overflow 

(15) 
(8*5) 

Doesn't fit— Q[3]=0 
(15) 
(4*5) 

Doesn't fit— Q[2] = 

(15) 
(2*5) 

Fits— Q[1]= 1 

(15-2*5) 
(1*5) 

Fits— Q[0]= 1 



The result is Q - 001 1 which is the binary equivalent of 
3 — the correct answer. Clearly this algorithm can (and 
has been) converted to a loop and used to perform divi- 
sions. An examination of the procedure, however, will 
show that it has the same problems as the original mul- 
tiply algorithm. 



The first problem is that double precision operationsare 
involved with both the comparison of the division with 
the dividend and the conditional subtraction. The 
second problem is that as the quotient bits are derived 
they must be shifted into a register. In order to reduce 
the register requirements, it would be desirable to shift 
them into the divisor register as they are generated 
since the divisor register gets shifted anyway. Unfor- 
tunately the quotient bits are derived most significant 
bits first so doing this will form a mirror image of the 
quotient— not very useful. 

Both of these problems can be solved by observing that 
the algorithm presented for divide will still work if both 
sides of all the "equations" involving the dividend are 
divided by sixteen. The looping algorithm then would 
proceed as follows: 

DIVIDE: 
QUOTIENTS 
COUNT: =4 

DIVIDENDS DIVIDEND1 16 
IF DIVISOR> = DIVIDEND THEN 
OVERFLOW FLAG:= 1 
ELSE 
REPEAT 
DIVIDEND:=DIVIDEND*2 
QUOTIENT: = QUOTIENT*2 
IF DIVISOR>= DIVIDEND THEN 
QUOTIENTS QUOTIENT + 1/*SET QUOTIENT!/)]*/ 
DIVIDENDS DIVIDEND- DIVISOR 
ENDIF 

COUNT: = COUNT - 1 
UNTIL COUNT =0 
ENDIF 
END DIVIDE 



When this algorithm is implemented on a computer 
which does not have a direct compare instruction the 
comparison is done by subtraction and the inner loop of 
the algorithm is modified as follows: 



REPEAT 

DIVIDEND: = DIVIDEND*2 
QUOTIENT: = QUOTIENT*2 
DIVIDENDS DIVIDEND- DIVISOR 
IF BORROW= OTHEN 

QUOTIENTS QUOTIENT + 1 
ELSE 

DIVIDENDS DIVIDEND+ DIVISOR 
ENDIF 

COUNT: = COUNT - 1 
UNTIL COUNT = 



An implementation of this algorithm using the 8049 in- 
struction set is shown in figure 6. This routine does an 
unsigned divide of a 16 bit quantity by an eight bit quan- 
tity. Since the multiply algorithm of figure 5 generates a 
16 bit result from the multiplication of two eight bit 
operands, these two routines complement each other 
and can be used as part of more complex computations. 



ISIS-II HCS-48/UPI-41 MACRO ASSEMBLER, V2. 9 



LOC 06J SEG> SOURCE STATEMENT 

1 WACROFILE 

2 *INCLUDE(:F1:DIV16.HED? 



3 ; 

* 

4 , * 

5 * DIVlfc * 

6 ; * * 

,J # 

8 , 

Si* THIS UTILITY PROVIDES AN 16 BV 8 UNSIGNED DIVIDE * 

19 ; * AT ENTRY: * 

11 ;.* A = IOAER EIGHT BITS OF DESTINATION OPERAND * 

12 ;* XA= UPPER EIGHT PITS OF DIVIDEND * 
12 ; * Rl= POINTER TO DIVISOR I N INTEENRL MEMORY * 
14 ;* * 
15;+ RT EXIT: * 
16 ;* A = LOWER EIGHT BITS OF RESUL1 * 
17;* XA= REMAINDER * 
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LOC OBJ SEQ SOURCE STATEMENT 

= 18 ; * C = SET I F OVERFLOW ELSE CLEWED * 

= 19 ;* * 

21 i 

22 ; 

23 §INCLUDE<:F1:DIV16. PDL> 
= 24 >1 DIV16: 

= 25 ;1 COLINT : =8 

= 26 ;1 D I V I DEND[ 15-8 ] =D I V I DENDC 1 5-8 3-D I V I SORr 
= 27 1 IF BORROWS THEN ,-'* IT FITS*/ 
= 28 >2 SET OVERFLOW FLAG 
= 29 ;1 ELSE 

= 38 ; 2 RESTORE DIVIDEND 

= 31/2 REPEAT 

= 22 ,2 DIVIDEND :=DIVIDEND*2 

= 22 :1 QUOTIENT :=QU0TIENT*2 

= 34; 3 DIVIDEND! 15-8 ] : =DI VIDtNDC 1S-8 3-DI VISOR 

= 35 ;3 IF BORROWS THEN 

= 36 ; 4 RESTORE DIYIDEND 

= 37; 3 ELSE 

= 38; 4 QU0TIL : NTE8I:=1 

= 3? ; 2 END I F 

= 40 ;3 COUNT :=C0UNT-1 

= 41 =2 UNTIL C0UNT=6 

= 42 ;2 CLEAR OVERFLOW FLAG 

= 43 ;1 END IF 

= 44 ;1 ENDDIVIDE 

45 ; 

46 .: EQUATES 

47 ; ======= 

48 

0002 49 m EQU R2 

0003 50 COUNT EQU R3 

51 ; 

52 REJECT 

53 *INCLUDE(:Fl:t>IV16> 
= 54 ;1 DIV16: 

0006 2A = 55 Mm. XCH fl,Xfi ; ROUTINE WORKS HOSTLV WITH BUS 15-8 

= 56ii COUNT: =8 
0O01 BB08 = 57 MOV COUNT, #8 

= 58 ,1 DIVIDEND! 15-S]:=DIVIDEND[15-8hDIVIS0R 
8063 37 = 53 CPL A 

8004 61 = 69 ADD A. <?R1 

8805 1 7 =61 CPL A 

= 62 il 1F BORROWS THEN i^T FITS*/ 
0806 F60B = 63 JC DIVIP 

= 64 : 2 SET OVERFLOW FLAG 
8008 A7 = 65 CPL C 

8089 8424 = 66 JMP DIVIB 

= 67 il ELSE 

= 68 DTVIR: 

= 69 2 RESTORE DIVIDEND 
008B 61 =. 78 ROD fl, «?1 

- 7113 REPEAT 
= 72 DIVILP: 

■ 73 ,S DIVIDEND : =DI VIDEND+2 
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LOC OBJ SEQ SOURCE STATEMENT 





= 74 


: 2 


\\\ mTTCUT ■ -fit lATTiriiJTV 
UUU il til 1 . -UUU 1 I tn 1 *i 


800C 97 


- 75 




CLR C 


000D 2R 


= 76 




XCH H> Xfl 


O00E F7 


77 
- // 




PLC H 


000F 2R 


= 73 




XCH flj Xft 


0010 F7 


= 79 




RLC A 


0011 E618 


= 80 




■JNC DIVIE 


0013 17 


= 81 




LrL H 


1J014 61 


= 82 






0915 37 


-~ i--> 
- VJ- 




CF'L A 


0016 0420 


= 84 




JMP DIVIC 




= 85 




DIVIDEN0C15-81:=DIV; 


0018 37 


- 86 DIVIE 


: CPL H 


8019 61 


= q? 




a r\r\ /"i on jt 

ADD H.. i*Rl 


001R 37 


= 88 




LrL H 




- 




1 F bORRQW=l THEN 


001B fh"20 


= 90 




JNC DIVIC 




= 91 


,4 


RE^TURE dividend 


001D 61 


= 92 




HDD A, (?R1 


001E 0421 


- 93 




Jrlr bl '/lb 




= 94 




nor 

ELSE 




= 95 


DIVTC: 






= 96 


:4 




BrltB In 


= 87 




!NC XA 




~ 98 




cr<i- 1 r 




= 99 


. 7 


COUNT =C0UNT-1 




= 180 


3 C 


UNTIL COUNT=0 


00il EBOC 


- 101 DIVID: 


: DJNZ COUNT.. DIVILP 


0023 97 


= 102 
= 103 




CLEAR OVERFLOW FLFIG 




= 104 


'.•!_rv 

1 END IF 




= 195 


• 1 ENDDIV1DE 


0024 2P 


= 106 


DIVIB. 


. m h.. xfi 


0025 83 


= 107 




RET 




108 


END 





USER SYMBOLS 

COUNT 9003 DIV16 9000 DIVIfl 0O0B DIVIB 0024 DIVIC 0020 DIVID 8821 DIVIE 0813 DIVILP 888C 

Xfl 0002 

ASSEMBLY COMPLETE.. NO ERRORS 
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BINARY AND BCD CONVERSIONS 

The conversion of a binary value to a BCD (binary coded 
decimal) number can be done with a very straight- 
forward algorithm: 



CONVERT-TO-BCD: 
BCDACCUM: = 
COUNT:= PRECISION 
REPEAT 

BIN: = BIN * 2 

BCD:= BCD * 2+ CARRY/ Q 
COUNT: = COUNT- 1 ^ -ft 
UNTIL COUNT=0 
END CONVERT-TO-BCD 



The variable BCDACCUM is a BCD string used to ac- 
cumulate the result; the variable BIN is the binary num- 
ber to be converted. PRECISION is a constant which 
gives the length, in binary bits of BIN. To see how this 
works, assume that BIN is a sixteen bit value with the 
most significant bit set. On the first pass through the 
loop the multiplication of BIN will result in a carry and 
this carry will be added to BCD. On the remaining 
passes through the loop BCD will be multiplied by two 
15 times. The initial carry into BCD will be multiplied by 
2 15 or32678, which is the "value" of the most significant 
bit of BIN. The process repeats with each bit of BIN 
being introduced to BCDACCUM and then being scaled 
up on successive passes through the loop. Figure 7 
shows the implementation of this algorithm for the 
8049. 



ISIS-11 RCS-43/UPI-41 HflCRO ASSEMBLER, V2. 8 



LOC OBJ SEQ SOURCE STflTEMENl 



1 imCROFILE 

2 $ INCLUDED :Fl:CONBCD. HED) 

= 4 ; + * 

= 5 + C0N6CD * 

= 6 ;* * 

= 7 ; 4====================r=====r=====r========================================* 

= Si* * 

= 3;* THIS UTILITY CONVERTS A 16 BIT BINARY VflLUE TO BCD * 

= 18 .. * FIT ENTRY * 

= U : * A = LOWER EIGHT BITS OF BINHRV VALUE a 

= 12 ;* XA= UPPER EIGHT BUS OF BINARY VALUE * 

= O;* R6= POINTER TO P PACKED BCD SIRING * 



14 ;* 

15 .;* AT EXIT. 



* 



= 16 * A = UNDEFINED * 

= 1? ; * XR= UNDEFINED * 

= is ; * C = JET I F OVERFLOW ELSE CLEARED + 

= 19 ; * * 

= 20 ■ w 

21 .: 

22 f 

23 SINCLUDEC ;F1 :C0N8CD. PDL> 
= 24 ;1 CONVERT. TO.BCD 

= 25 il BCDflCC:=8 

= 26 ..1 COUNT =16 

= 27 , 1 REPEAT 

= 23 ;2 BIN:=BIN*2 

- £9 ; 2 BCD.=BCD*2+CARRV 

= 30 ;2 IF CARRY FROM BCDACC GOTO ERROR EXIT 

= 31 ; 2 COUNT :=C0UNT-1 

= 32 il UNTIL COUNTS 

- B > 1 END CONVERT.TO.BCD 

34 , 

35 ; EQUATES 



8092 38 XA EQU R2 

0063 39 COUNT EQU R3 

0084 40 ICNT EQU R4 

41 ; 

0003 42 DIGPE EQU 3 

43 ; 

44 IEJECT 

45 IINCLUDECFI CONBCD) 
= 46 , 

0005 = 4? TEMPI SET R5 

= 48 i 

= 49 ,1 CONVERT,TO_BCD 



= 51 ;1 8CDflCC:=B 
0000 28 = 52 XCH A,R0 

Mnemonics I'v 1979 Intel Corporation Figure7 



00670A 



17 



LOC OBJ SEQ SOURCE STATEMENT 



9801 A9 


= 53 


MOV 


R1,A 


0002 28 


= 54 


XCH 


fl, RO 


000_> BC03 


= 55 


MOV 


ICNT, #DIGPR 


0005 B100 


= 56 


BCDCOR MOV' 


SRI.- #00 


TOtlf 19 


~ 5? 


INC 


r- i 

E I 


0008 EC05 


= 58 


DJNZ 


ICNT,BCDCOA 




= 59 


A COUNT: =16 




99m BB10 


= 60 




COUNT, #16 




= 6 1 


;1 REPEAT 






= 62 


BCDCOB : 






= 63 


,2 BIN:=BIN*2 




= 64 


CLR 


C 


000D r i 


= 65 


RLC 


fl 


000E 2A 


= 66 


XCH 


A,XA 


000F F7 


= 67 


RLC 


A 


0010 2fl 


= 68 


XCH 


a.xR 




= 69 


;.2 BCD:=BCD*2+CARRY 


0911 28 


= 70 


XCH 


fl,R0 


8012 fly 


- 71 


MOV 


R1,R 


0013 28 


= 72 


XCH 


fl,RP 


0014 BC0i 


= 73 


MOV 


ICNT,#DIGPR 


0016 fiD 


= 74 


MOV 


TEMPI, fl 


0017 Fl 


= 75 


BCDOC: MOV 


fl,. 9R1 


0018 71 


= 76 


flODC 


R..0R1 


0019 57 


= 77 


Dfl 


A 


801R fll 


= 78 


MOV 


§Rl,fl 


801B 19 


= 79 


INC 


Rl 


061C EC17 


= 80 


DJNZ 


ICNT, BCDOC 


861E FD 


= 81 


MOV 


fl, TEMPI 




= 8? 


■ 2 I F CARRY FROM BCDflCC ( 



O01F F624 = 83 JC BCDCOD 

= 84 ;2 COUNT :=C0UNT-1 
= 85 A UNTIL C0UNT=8 
0021 EBOC = 86 DJNZ COUNT, BCDCOB 

0023 97 = 87 CLR C ; CLEAR CARRY TO INDICATE NORMAL TERMINATION 

= 88 -1 END CONVERT-TO.BCD 
8024 82 = 89 BCDCOD: RET 

90 END 

USER SYMBOLS 

BCDCOA 0005 BCDCOB 000C: BCDCOD 0024 BCDOC 0017 CNBCD OO0O COUNT 0003 DIQPR 0063 ICNT 0004 
TEMPI 0005 XA 0002 

ASSEMBLY COMPLETE, NO ERRORS 
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The conversion of a BCD value to binary is essentially 
the same process as converting a binary value to BCD. 

CONVERT-TOBINARY 
BIN: = 

COUNT:= DIGNO 

REPEAT 

BCDACCUM: = BCDACCUM * 10 
BIN:=10* BIN + CARRY DIGIT 
COUNT: = COUNT- 1 

UNTIL COUNT=0 
END CONVERT-TO-BINARY 

The only complexity is the two multiplications by ten. 
The BCDACCUM can be multiplied by ten by shifting it 
left four places (one digit). The variable BIN could be 
multiplied using the multiply algorithm already dis- 
cussed, but it is usually more efficient to do this by mak- 



ing the following substitution: 

BIN = 10 * BIN = (2) * (5) * (BIN)=2 * (2 * 2+1) * BIN 

This implies that the value 10 * BIN can be generated by 
saving the value of BIN and then shifting BIN two places 
left. After this the original value of BIN can be added to 
the new value of BIN (forming 5 * BIN) and then BIN can 
be multiplied by two. It is often possible to implement 
the multiplication of a value by a constant by using such 
techniques. Figure 8 shows an 8049 routine which con- 
verts BCD values to binary. This routine differs slightly 
from the algorithm above in that the BCD digits are read, 
and converted to binary, two digits at a time. Protection 
has also been added to detect BCD operands which, if 
converted, would yield binary values beyond the range 
of the result. 
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loc obj seq source; STATEMENT 

1 INACROFILE 

2 $INCLUDE(:F1:C0NBIN. HED! 

= 3 : +*+++++****+■**.+*+++****+++**+***+*+•+*** 



= 4 ;* 

= 5 ;* CONBIN * 

6 j * 

= 7 ; *r=======r==============r=============r=============================* 

= 8 * 

= 9 ..* THIS UTILITY CONVERTS A 6 DIGIT BCD VALUE TO BINARY * 

= 10 .; * AT ENTRY. * 

= 11 ; * R8= POINTER TO A PACKED BCD STRING * 

= 12 * 

= 13.;+ AT EXIT: * 

= 14 ;* A = LOWER EIGHT BITS CF THE 6INARV RESULT * 

= 15;* Xfi= UPPER El WT BITE. OF THE BINARY RESULT * 

= 16 ;* C = SET IF OVERFLOW ELSE CLEARED * 

=17;* * 



= 18 ; 

19 ; 
26 ; 

2 1 IINCLUDEC :F1 ; CONBIN. PPL> 



= 24 ;1 CONVERT.TCLB I NARY 

= 25 il POINTERS : =P0 | NTER9+0ZQ ITPA I R-l 

= 26 ;1 COUNT :=DIGITPflIR 

= 27 ;1 BIN;=@ 

= 28 :i REPEAT 

= 29-2 BIN:=BIN*ie 

= 22 ;2 BIN:=BIN+MEM(R0)t7-4] 

= 31 i2 BIN:=BIN*19 

= 32; 2 BIN:=BIN+MEM(R0>t>0] 
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LDC UBJ SEQ SOURCE STATEMENT 

= V. >Z POINTERS :=POINTERS-1 

= 34 ,2 COUNT :=COUNT-l 

= 35 ;1 UNTIL COUNTS 

= 36 ;1 END CONVERT_TO_B INARV 

37 

io , EQUATES 
39 '. ======= 

48 i 

0002 41 Xfl EQU R2 

0003 42 COUNT EQU R3 

0004 43 ICNT EQU R4 

44 ; 

0003 45 DIGPR EQU 3 

46 ; 

47 IEJECT 

48 *INCLUDE(:Fi:CONBIN> 
= 49, 

0005 = 58 TEMPI SET R5 
= 51 TEMP2 SET R6 

= 52 ; 

= 53 ;1 CONVERT.TO.BINRRV 
= 54 CONBIN: 

~ 55,1 PO I NTE RO : =PO I NTER8+D I G I TPfl I R- 1 



ww r o 


= 56 




flOV 


A,R« 




= 57 




ADD 


fl,#01GPR- 


no 


= 58 




MOV 


R0,ft 




= 59 ;1 COUNT :=DICITPflIR 


0004 BB83 


= 69 




MOV 


count, »: 




= 61 ;1 8IN:=e 




0006 27 


= 62 




CLR 


A 


9097 AR 


= 63 




NOV 


Xfl, A 




= 64 


;1 


REPEFIT 






= 65 C0NBLP: 






= 66 


>2 


BIN:=BIN*ie 


0008 142B 


= 67 




CALL 


CONB10 


000A F62A 


= 68 




JC 


CONBER 




= 69 




BIN:=BIN+MEWR0)[7- 


000C AD 


= 79 




HOV 


TEMPI, A 


000D F0 


= 71 




nov 


a, m 


000E 47 


= 72 




SWAP 


A 


800F 538F 


= 73 




AM 


fl,#ifH 


0011 60 


= 74 




ADD 


A TEMPI 


0012 2A 


= 75 




XCH 


A, Xfl 


0013 1300 


= 76 




flODC 


A, #08 


8015 2A 


= 77 




XCH 


A,XA 


0016 F62A 


= 78 




JC 


CONBER 




= 79 


;2 


BIN:=BIN*19 


0018 142B 


= 80 




CHLL 


CONB10 


001A F62A 


= 81 




JC 


CONBER 




= 82 




BIN:=BIN+MEM(R0)[3- 


001C AO 


= 33 




nov 


TEMPI, A 


001D F0 


= 84 




nov 


fl,£R0 


081E 530F 


= 85 




ANL 


A,#8FH 


8020 60 


- 86 




ADD 


A, TEMPI 


0021 2A 


= 87 




XCH 


A,XA 



-0] 
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ICC OBJ 



SEQ 



SOURCE STATEMENT 



9922 1300 

0024 2fl 

0025 F62A 

002? C8 



0028 EB08 
882A 82 



002B AD 
002C 2H 
802D flE 
002E 2fl 

882F 9? 
8030 F7 
0831 2fl 
0032 F7 
9833 2fl 
8034 F646 

8836 F7 
0037 2A 
8033 F7 
8839 2R 
883R F646 

883C 6D 
883D 2fi 
983E 7E 
883F 2R 
0049 F646 

8842 F7 
0843 2A 
8044 F7 

0045 2A 

0046 83 



88 
89 
30 
91 
92 
93 
94 

95 
96 
97 
98 
99 
188 
181 
102 
183 
184 
185 
106 
107 
108 
I?? 
118 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
138 
131 
132 
133 
134 
135 
136 



flDDC fl>#00 

XCH rUA 

JC C0N3ER 
;2 POINTERS :=P0INTER9-1 

DEC FD 
.2 COUNT :=C0UHT-1 
il UNTIL COL!NT=0 

D-JNZ COUNT, CONBLP 
;1 BSD CQNVERT.TQ-BIWRY 
CONBER : RET 
fEJECT 



UTILITY ID MULTIPLY BIN BV 10 
CARRV WILL 6E SET I F OVERRDW OCCUFS 



CONB10: MOV 
XCH 
MOV 
H 

CLR 
RLC 

XCH 
RLC 
XCH 
X 

RLC 
XCH 
RLC. 
XCH 

JC 

RDD 

XCH 

flDDC 

XCH 

JC 

RLC 

XCH 
RLC 
XCH 

CONB1E: RET 



END 



TEMPI, A .. SAVE A 
A,XA ; SAVE XA 
TEWP2, A 
A/XA 



C 
A 

A,XA 
A 

A,XA 
C0N61E 



; BIN:=BIN*2 

; ERFCR ON OVERFLOW 
; BIN:=BIN*4 



ft 
A, XA 
A 

A..XA 

CONB1E ; ERFCR CN OVERFLOW 

A, TEMPI ; BIN:=BIN*5 
A,XA 
R.TEMF2 
A XA 
CONB1E 

A 

A, XA 

8 

A Xfl 



ERROR ON OVERFLOW 
BIN:=BIN*18 



USER SYMBOLS 
C0NB18 082B 
TEMPI 



CONB1E 8846 
TEMP2 0086 



CONBER 882A 
XA 8082 



C0N6IN 8088 CONBLP 9008 COUNT 8083 DIGPR 8883 ICNT 



ASSEMBLY COMPLETE, NO ERRORS 
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CONCLUSION 

The design goals of the full duplex serial communica- 
tions software were realized; if transmission and recep- 
tion are occurring concurrently, only 42 percent of the 
real time available to the 8049 will be consumed by the 
serial link. This implies that an 8049 running full duplex 
serial I/O will still outperform earlier members of the 
family running without the serial I/O requirement. It is 
also possible to run this program in an 8048 or 8748 at 
1200 baud with the same 42 percent CPU utilization. 

The execution times for the other routines that have 
been discussed have been summarized in Table 1 . All of 
these routines were written to maintain maximum use- 
ability rather than minimum code size or execution time. 
The resulting execution times and code size are there- 
fore what the user can expect to see in a real applica- 
tion. The results that were obtained clearly show the ef- 
ficiency and speed of the 8049. The equivalent times for 
the 8048 are also shown. It is clear that the 8049 repre- 
sents a substantial performance advantage over the 
8048. Considering, in most applications, that the 8048 is 



the highest performance microcomputer available to 
date, the performance advantage of the 8049 should 
allow the cost benefits of a single chip microcomputer 
to be realized in many applications which up until now 
have required too much "computer power" for a single 
chip approach. 



EXECUTION TIME 
(MICROSECONDS) 





BYTES 


8049 


8048 


MPY8 


21 


109 


200 


DIV 16 


37 


183 MIN 
204 MAX 


335 MIN 
375 MAX 


CONBCD 


36 


733 


1348 


CONBIN 


70 


388 


713 



Table 1. Program Performance 
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